home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Larry Magid's Essential Internet
/
Larry Magid's Essential Internet (Quarterdeck Corporation)(1995).ISO
/
qsockpro.qip
/
BEST.MPS
< prev
next >
Wrap
Text File
|
1995-10-09
|
1KB
|
72 lines
# Best Internet Communications, Inc. PPP login script
# Copyright 1995 Quarterdeck Corporation
# Authored 6/5/95 kflick@netcom.com
#define the variables we will need
String username
String password
String framing
String IPAddress
# uncomment for debugging
#Trace on
# reset maximum login timeout.
SetTimeout 60
CfgGetValue "Username" username
if result = 0 then
GetInput "Enter your user name" username
if result = 0 then
Print "Warning, no username entered"
else
Print "Username set to ["; username; "]"
endif
endif
# get password from access method
CfgGetValue "Password" password
# if the Password field is empty, prompt the user for it.
if result = 0 then
GetPassword "Enter your password" password
if result = 0 then
Print "Warning, no password entered"
else
# NOTE: Don't print password.
Print "Password set."
endif
endif
CommWaitFor "login:" # wait for login prompt
#delay 5
CommSend username # send user name
CommSend "%r" # send carriage return
CommWaitFor "assword" # wait for password prompt
#delay 5
CommSend password # send password
CommSend "%r" # send carriage return
CommWaitFor "to " # wait for ip address
CommReadIPAddr IPAddress
if result>0 then
CfgSetValue "IPAddress" IPAddress
print " "
print "IP Address set to ["; IPAddress; "]"
endif
END